home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility3 / what.zip / MSDETECT.IN_ / MSDETECT.bin
Text File  |  1992-02-09  |  22KB  |  654 lines
  1. '**************************************************************************
  2. '*************************  Setup Detect API's  ***************************
  3. '**************************************************************************
  4.  
  5. ''detect
  6.  
  7. DECLARE FUNCTION CbGetVersionOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  8. DECLARE FUNCTION LGetVersionNthField LIB "msdetstf.dll" (szVersion$, nField%) AS LONG
  9. DECLARE FUNCTION LcbGetSizeOfFile LIB "msdetstf.dll" (szFile$) AS LONG
  10. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  11. DECLARE FUNCTION FGetLocalHardDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  12. DECLARE FUNCTION FGetRemovableDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  13. DECLARE FUNCTION FGetNetworkDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  14. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  15. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  16. DECLARE FUNCTION FIsValidDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  17. DECLARE FUNCTION FIsLocalHardDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  18. DECLARE FUNCTION FIsRemoveDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  19. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  20. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  21. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  22. DECLARE FUNCTION CbGetDateOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  23. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  24. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  25. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  26. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  27. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  28. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  29. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  30. DECLARE FUNCTION FGetParallelPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  31. DECLARE FUNCTION FGetSerialPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  32. DECLARE FUNCTION FHas87MathChip LIB "msdetstf.dll" AS INTEGER
  33. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  34. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  35. DECLARE FUNCTION WGetConfigSmartdrvSize LIB "msdetstf.dll" AS INTEGER
  36. DECLARE FUNCTION WGetConfigRamdriveSize LIB "msdetstf.dll" AS INTEGER
  37. DECLARE FUNCTION WGetConfigNumBuffers LIB "msdetstf.dll" AS INTEGER
  38. DECLARE FUNCTION WGetConfigNumFiles LIB "msdetstf.dll" AS INTEGER
  39. DECLARE FUNCTION WGetConfigLastDrive LIB "msdetstf.dll" AS INTEGER
  40. DECLARE FUNCTION FIsDriverInConfig LIB "msdetstf.dll" (szDrv$) AS INTEGER
  41. DECLARE FUNCTION CbFindTargetOnEnvVar LIB "msdetstf.dll" (szFile$, szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  42. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  43.  
  44.  
  45.  
  46. '*************************************************************************
  47. '****************  Detect Basic Wrapper Declarations  ********************
  48. '*************************************************************************
  49.  
  50.  
  51. '' detect
  52.  
  53. DECLARE FUNCTION IsDriveValid (szDrive$) AS INTEGER
  54. DECLARE FUNCTION IsDriveLocalHard (szDrive$) AS INTEGER
  55. DECLARE FUNCTION IsDriveRemovable (szDrive$) AS INTEGER
  56. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  57. DECLARE SUB GetValidDrivesList (szSymbol$)
  58. DECLARE SUB GetLocalHardDrivesList (szSymbol$)
  59. DECLARE SUB GetRemovableDrivesList (szSymbol$)
  60. DECLARE SUB GetNetworkDrivesList (szSymbol$)
  61. DECLARE FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  62. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  63.  
  64. DECLARE FUNCTION GetDOSMajorVersion AS INTEGER
  65. DECLARE FUNCTION GetDOSMinorVersion AS INTEGER
  66. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  67. DECLARE FUNCTION GetNumWinApps AS INTEGER
  68.  
  69. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  70. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  71. DECLARE FUNCTION GetYearFromDate (szDate$) AS INTEGER
  72. DECLARE FUNCTION GetMonthFromDate (szDate$) AS INTEGER
  73. DECLARE FUNCTION GetDayFromDate (szDate$) AS INTEGER
  74. DECLARE FUNCTION GetHourFromDate (szDate$) AS INTEGER
  75. DECLARE FUNCTION GetMinuteFromDate (szDate$) AS INTEGER
  76. DECLARE FUNCTION GetSecondFromDate (szDate$) AS INTEGER
  77. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  78. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  79. DECLARE FUNCTION GetSizeOfFile (szFile$) AS LONG
  80. DECLARE FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) AS STRING
  81. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  82. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  83.  
  84. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  85. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  86. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  87.  
  88. DECLARE FUNCTION GetConfigSmartdrvSize AS INTEGER
  89. DECLARE FUNCTION GetConfigRamdriveSize AS INTEGER
  90. DECLARE FUNCTION GetConfigNumBuffers AS INTEGER
  91. DECLARE FUNCTION GetConfigNumFiles AS INTEGER
  92. DECLARE FUNCTION GetConfigLastDrive AS STRING
  93. DECLARE FUNCTION IsDriverInConfig (szDrv$) AS INTEGER
  94.  
  95. DECLARE FUNCTION GetProcessorType AS INTEGER
  96. DECLARE SUB GetParallelPortsList (szSymbol$)
  97. DECLARE SUB GetSerialPortsList (szSymbol$)
  98. DECLARE FUNCTION Has87MathChip AS INTEGER
  99. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  100. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  101.  
  102.  
  103. '*************************************************************************
  104. FUNCTION IsDriveValid (szDrive$) STATIC  AS INTEGER
  105. '$ifdef DEBUG
  106.     if FValidDrive(szDrive$) = 0 then
  107.         BadArgErr 1, "IsDriveValid", szDrive$
  108.     end if
  109. '$endif ''DEBUG
  110.     IsDriveValid = FIsValidDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  111. END FUNCTION
  112.  
  113.  
  114. '*************************************************************************
  115. FUNCTION IsDriveLocalHard (szDrive$) STATIC  AS INTEGER
  116. '$ifdef DEBUG
  117.     if FValidDrive(szDrive$) = 0 then
  118.         BadArgErr 1, "IsDriveLocalHard", szDrive$
  119.     end if
  120. '$endif ''DEBUG
  121.     IsDriveLocalHard = FIsLocalHardDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  122. END FUNCTION
  123.  
  124.  
  125. '*************************************************************************
  126. FUNCTION IsDriveRemovable (szDrive$) STATIC  AS INTEGER
  127. '$ifdef DEBUG
  128.     if FValidDrive(szDrive$) = 0 then
  129.         BadArgErr 1, "IsDriveRemovable", szDrive$
  130.     end if
  131. '$endif ''DEBUG
  132.     IsDriveRemovable = FIsRemoveDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  133. END FUNCTION
  134.  
  135.  
  136. '*************************************************************************
  137. FUNCTION IsDriveNetwork (szDrive$) STATIC  AS INTEGER
  138. '$ifdef DEBUG
  139.     if FValidDrive(szDrive$) = 0 then
  140.         BadArgErr 1, "IsDriveNetwork", szDrive$
  141.     end if
  142. '$endif ''DEBUG
  143.     IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  144. END FUNCTION
  145.  
  146.  
  147. '*************************************************************************
  148. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  149. '$ifdef DEBUG
  150.     if FValidDrive(szDrive$) = 0 then
  151.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  152.     end if
  153. '$endif ''DEBUG
  154.     GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  155. END FUNCTION
  156.  
  157.  
  158. '*************************************************************************
  159. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  160. '$ifdef DEBUG
  161.     if FValidDrive(szDrive$) = 0 then
  162.         BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  163.     end if
  164. '$endif ''DEBUG
  165.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  166. END FUNCTION
  167.  
  168.  
  169. '*************************************************************************
  170. SUB GetValidDrivesList (szSymbol$) STATIC
  171. '$ifdef DEBUG
  172.     if szSymbol$ = "" then
  173.         BadArgErr 1, "GetValidDrivesList", szSymbol$
  174.     end if
  175. '$endif ''DEBUG
  176.     if FGetValidDrivesList(szSymbol$) = 0 then
  177. '$ifdef DEBUG
  178.         StfApiErr saeFail, "GetValidDrivesList", szSymbol$
  179. '$endif ''DEBUG
  180.         ERROR STFERR
  181.     end if
  182. END SUB
  183.  
  184.  
  185. '*************************************************************************
  186. SUB GetLocalHardDrivesList (szSymbol$) STATIC
  187. '$ifdef DEBUG
  188.     if szSymbol$ = "" then
  189.         BadArgErr 1, "GetLocalHardDrivesList", szSymbol$
  190.     end if
  191. '$endif ''DEBUG
  192.     if FGetLocalHardDrivesList(szSymbol$) = 0 then
  193. '$ifdef DEBUG
  194.         StfApiErr saeFail, "GetLocalHardDrivesList", szSymbol$
  195. '$endif ''DEBUG
  196.         ERROR STFERR
  197.     end if
  198. END SUB
  199.  
  200.  
  201. '*************************************************************************
  202. SUB GetRemovableDrivesList (szSymbol$) STATIC
  203. '$ifdef DEBUG
  204.     if szSymbol$ = "" then
  205.         BadArgErr 1, "GetRemovableDrivesList", szSymbol$
  206.     end if
  207. '$endif ''DEBUG
  208.     if FGetRemovableDrivesList(szSymbol$) = 0 then
  209. '$ifdef DEBUG
  210.         StfApiErr saeFail, "GetRemovableDrivesList", szSymbol$
  211. '$endif ''DEBUG
  212.         ERROR STFERR
  213.     end if
  214. END SUB
  215.  
  216.  
  217. '*************************************************************************
  218. SUB GetNetworkDrivesList (szSymbol$) STATIC
  219. '$ifdef DEBUG
  220.     if szSymbol$ = "" then
  221.         BadArgErr 1, "GetNetworkDrivesList", szSymbol$
  222.     end if
  223. '$endif ''DEBUG
  224.     if FGetNetworkDrivesList(szSymbol$) = 0 then
  225. '$ifdef DEBUG
  226.         StfApiErr saeFail, "GetNetworkDrivesList", szSymbol$
  227. '$endif ''DEBUG
  228.         ERROR STFERR
  229.     end if
  230. END SUB
  231.  
  232.  
  233. '*************************************************************************
  234. FUNCTION GetDOSMajorVersion STATIC  AS INTEGER
  235.     GetDOSMajorVersion = WGetDOSMajorVersion
  236. END FUNCTION
  237.  
  238.  
  239. '*************************************************************************
  240. FUNCTION GetDOSMinorVersion STATIC  AS INTEGER
  241.     GetDOSMinorVersion = WGetDOSMinorVersion
  242. END FUNCTION
  243.  
  244.  
  245. '*************************************************************************
  246. FUNCTION GetEnvVariableValue (szEnvVar$) STATIC  AS STRING
  247. '$ifdef DEBUG
  248.     if szEnvVar$ = "" then
  249.         BadArgErr 1, "GetEnvVariableValue", szEnvVar$
  250.     end if
  251. '$endif ''DEBUG
  252.     cb% = 1024
  253.     szBuf$ = STRING$(cb%, 32)
  254.     cbRet% = CbGetEnvVariableValue(szEnvVar$, szBuf$, cb%)
  255.     GetEnvVariableValue = szBuf$
  256. '$ifdef DEBUG
  257.     IF cbRet% >= cb% THEN
  258.         StfApiErr saeOvfl, "GetEnvVariableValue", szEnvVar$
  259.         ERROR STFERR
  260.     END IF
  261. '$endif ''DEBUG
  262.     szBuf$ = ""
  263. END FUNCTION
  264.  
  265.  
  266. '*************************************************************************
  267. FUNCTION GetNumWinApps STATIC  AS INTEGER
  268.     GetNumWinApps = WGetNumWinApps
  269. END FUNCTION
  270.  
  271.  
  272. '*************************************************************************
  273. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  274. '$ifdef DEBUG
  275.     if FValidFATPath(szFileName$) = 0 then
  276.         BadArgErr 1, "DoesFileExist", szFileName$+", "+STR$(mode%)
  277.     end if
  278. '$endif ''DEBUG
  279.     DoesFileExist = FDoesFileExist(szFileName$, mode%)
  280. END FUNCTION
  281.  
  282.  
  283. '*************************************************************************
  284. FUNCTION GetDateOfFile (szFile$) STATIC  AS STRING
  285. '$ifdef DEBUG
  286.     if FValidFATPath(szFile$) = 0 then
  287.         BadArgErr 1, "GetDateOfFile", szFile$
  288.     end if
  289. '$endif ''DEBUG
  290.     cb% = 20
  291.     szBuf$ = STRING$(cb%, 32)
  292.     cbRet% = CbGetDateOfFile(szFile$, szBuf$, cb%)
  293.     GetDateOfFile = szBuf$
  294. '$ifdef DEBUG
  295.     IF cbRet% >= cb% THEN
  296.         StfApiErr saeOvfl, "GetDateOfFile", szFile$
  297.         ERROR STFERR
  298.     END IF
  299. '$endif ''DEBUG
  300.     szBuf$ = ""
  301. END FUNCTION
  302.  
  303.  
  304. '*************************************************************************
  305. FUNCTION GetYearFromDate (szDate$) STATIC  AS INTEGER
  306. '$ifdef DEBUG
  307.     if szDate = "" then
  308.         BadArgErr 1, "GetYearFromDate", szDate$
  309.     end if
  310. '$endif ''DEBUG
  311.     GetYearFromDate = VAL(MID$(szDate$, 1, 4))
  312. END FUNCTION
  313.  
  314.  
  315. '*************************************************************************
  316. FUNCTION GetMonthFromDate (szDate$) STATIC  AS INTEGER
  317. '$ifdef DEBUG
  318.     if szDate = "" then
  319.         BadArgErr 1, "GetMonthFromDate", szDate$
  320.     end if
  321. '$endif ''DEBUG
  322.     GetMonthFromDate = VAL(MID$(szDate$, 6, 2))
  323. END FUNCTION
  324.  
  325.  
  326. '*************************************************************************
  327. FUNCTION GetDayFromDate (szDate$) STATIC  AS INTEGER
  328. '$ifdef DEBUG
  329.     if szDate = "" then
  330.         BadArgErr 1, "GetDayFromDate", szDate$
  331.     end if
  332. '$endif ''DEBUG
  333.     GetDayFromDate = VAL(MID$(szDate$, 9, 2))
  334. END FUNCTION
  335.  
  336.  
  337. '*************************************************************************
  338. FUNCTION GetHourFromDate (szDate$) STATIC  AS INTEGER
  339. '$ifdef DEBUG
  340.     if szDate = "" then
  341.         BadArgErr 1, "GetHourFromDate", szDate$
  342.     end if
  343. '$endif ''DEBUG
  344.     GetHourFromDate = VAL(MID$(szDate$, 12, 2))
  345. END FUNCTION
  346.  
  347.  
  348. '*************************************************************************
  349. FUNCTION GetMinuteFromDate (szDate$) STATIC  AS INTEGER
  350. '$ifdef DEBUG
  351.     if szDate = "" then
  352.         BadArgErr 1, "GetMinuteFromDate", szDate$
  353.     end if
  354. '$endif ''DEBUG
  355.     GetMinuteFromDate = VAL(MID$(szDate$, 15, 2))
  356. END FUNCTION
  357.  
  358.  
  359. '*************************************************************************
  360. FUNCTION GetSecondFromDate (szDate$) STATIC  AS INTEGER
  361. '$ifdef DEBUG
  362.     if szDate = "" then
  363.         BadArgErr 1, "GetSecondFromDate", szDate$
  364.     end if
  365. '$endif ''DEBUG
  366.     GetSecondFromDate = VAL(MID$(szDate$, 18, 2))
  367. END FUNCTION
  368.  
  369.  
  370. '*************************************************************************
  371. FUNCTION GetVersionOfFile (szFile$) STATIC  AS STRING
  372. '$ifdef DEBUG
  373.     if FValidFATPath(szFile$) = 0 then
  374.         BadArgErr 1, "GetVersionOfFile", szFile$
  375.     end if
  376. '$endif ''DEBUG
  377.     cb% = 30
  378.     szBuf$ = STRING$(cb%, 32)
  379.     cbRet% = CbGetVersionOfFile(szFile$, szBuf$, cb%)
  380.     GetVersionOfFile = szBuf$
  381. '$ifdef DEBUG
  382.     IF cbRet% >= cb% THEN
  383.         StfApiErr saeOvfl, "GetVersionOfFile", szFile$
  384.         ERROR STFERR
  385.     END IF
  386. '$endif ''DEBUG
  387.     szBuf$ = ""
  388. END FUNCTION
  389.  
  390.  
  391. '*************************************************************************
  392. FUNCTION GetVersionNthField (szVersion$, nField%) STATIC  AS LONG
  393. '$ifdef DEBUG
  394.     if (nField% < 1) OR (nField% > 4) then
  395.         BadArgErr 2, "GetVersionNthField", szVersion$+", "+STR$(nField%)
  396.     end if
  397. '$endif ''DEBUG
  398.     GetVersionNthField = LGetVersionNthField(szVersion$, nField%)
  399. END FUNCTION
  400.  
  401.  
  402. '*************************************************************************
  403. FUNCTION GetSizeOfFile (szFile$) STATIC  AS LONG
  404. '$ifdef DEBUG
  405.     if FValidFATPath(szFile$) = 0 then
  406.         BadArgErr 1, "GetSizeOfFile", szFile$
  407.     end if
  408. '$endif ''DEBUG
  409.     GetSizeOfFile = LcbGetSizeOfFile(szFile$)
  410. END FUNCTION
  411.  
  412.  
  413. '*************************************************************************
  414. FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) STATIC  AS STRING
  415. '$ifdef DEBUG
  416.     if CchlValidFATSubPath(szFile$) = 0 then
  417.         n% = 1
  418.     elseif szEnvVar$ = "" then
  419.         n% = 2
  420.     else
  421.         n% = 0
  422.     end if
  423.     if n% > 0 then
  424.         BadArgErr n%, "FindTargetOnEnvVar", szFile$+", "+szEnvVar$
  425.     end if
  426. '$endif ''DEBUG
  427.  
  428.     cb% = 512
  429.     szBuf$ = STRING$(cb%, 32)
  430.     cbRet% = CbFindTargetOnEnvVar(szFile$, szEnvVar$, szBuf$, cb%)
  431.     FindTargetOnEnvVar = szBuf$
  432. '$ifdef DEBUG
  433.     IF cbRet% >= cb% THEN
  434.         StfApiErr saeOvfl, "FindTargetOnEnvVar", szFile$+", "+szEnvVar$
  435.         ERROR STFERR
  436.     END IF
  437. '$endif ''DEBUG
  438.     szBuf$ = ""
  439. END FUNCTION
  440.  
  441.  
  442. '*************************************************************************
  443. FUNCTION FindFileInTree (szFile$, szDir$) STATIC  AS STRING
  444. '$ifdef DEBUG
  445.     if CchlValidFATSubPath(szFile$) = 0 then
  446.         n% = 1
  447.     elseif FValidFATDir(szDir$) = 0 then
  448.         n% = 2
  449.     else
  450.         n% = 0
  451.     end if
  452.     if n% > 0 then
  453.         BadArgErr n%, "FindFileInTree", szFile$+", "+szDir$
  454.     end if
  455. '$endif ''DEBUG
  456.  
  457.     cb% = 512
  458.     szBuf$ = STRING$(cb%, 32)
  459.     cbRet% = CbFindFileInTree(szFile$, szDir$, szBuf$, cb%)
  460.     FindFileInTree = szBuf$
  461. '$ifdef DEBUG
  462.     IF cbRet% >= cb% THEN
  463.         StfApiErr saeOvfl, "FindFileInTree", szFile$+", "+szDir$
  464.         ERROR STFERR
  465.     END IF
  466. '$endif ''DEBUG
  467.     szBuf$ = ""
  468. END FUNCTION
  469.  
  470.  
  471. '*************************************************************************
  472. FUNCTION GetConfigSmartdrvSize STATIC  AS INTEGER
  473.     GetConfigSmartdrvSize = WGetConfigSmartdrvSize
  474. END FUNCTION
  475.  
  476.  
  477. '*************************************************************************
  478. FUNCTION GetConfigRamdriveSize STATIC  AS INTEGER
  479.     GetConfigRamdriveSize = WGetConfigRamdriveSize
  480. END FUNCTION
  481.  
  482.  
  483. '*************************************************************************
  484. FUNCTION GetConfigNumBuffers STATIC  AS INTEGER
  485.     GetConfigNumBuffers = WGetConfigNumBuffers
  486. END FUNCTION
  487.  
  488.  
  489. '*************************************************************************
  490. FUNCTION GetConfigNumFiles STATIC  AS INTEGER
  491.     GetConfigNumFiles = WGetConfigNumFiles
  492. END FUNCTION
  493.  
  494.  
  495. '*************************************************************************
  496. FUNCTION GetConfigLastDrive STATIC  AS STRING
  497.     chRet% = WGetConfigLastDrive
  498.     if chRet% = 0 then
  499.         GetConfigLastDrive = ""
  500.     else
  501.         GetConfigLastDrive = CHR$(chRet%)
  502.     end if
  503. END FUNCTION
  504.  
  505.  
  506. '*************************************************************************
  507. FUNCTION IsDriverInConfig (szDrv$) STATIC  AS INTEGER
  508. '$ifdef DEBUG
  509.     if szDrv$ = "" then
  510.         BadArgErr 1, "IsDriverInConfig", szDrv$
  511.     end if
  512. '$endif ''DEBUG
  513.     IsDriverInConfig = FIsDriverInConfig(szDrv$)
  514. END FUNCTION
  515.  
  516.  
  517. '*************************************************************************
  518. FUNCTION GetProcessorType STATIC  AS INTEGER
  519.     GetProcessorType = 0
  520.     longTmp& = GetWinFlags()
  521.     IF longTmp& AND WF_CPU486 THEN
  522.         GetProcessorType = 4
  523.     ELSEIF longTmp& AND WF_CPU386 THEN
  524.         GetProcessorType = 3
  525.     ELSEIF longTmp& AND WF_CPU286 THEN
  526.         GetProcessorType = 2
  527.     ELSEIF longTmp& AND WF_CPU186 THEN
  528.         GetProcessorType = 1
  529.     END IF
  530. END FUNCTION
  531.  
  532.  
  533. '*************************************************************************
  534. SUB GetParallelPortsList (szSymbol$) STATIC
  535. '$ifdef DEBUG
  536.     if szSymbol$ = "" then
  537.         BadArgErr 1, "GetParallelPortsList", szSymbol$
  538.     end if
  539. '$endif ''DEBUG
  540.     if FGetParallelPortsList(szSymbol$) = 0 then
  541. '$ifdef DEBUG
  542.         StfApiErr saeFail, "GetParallelPortsList", szSymbol$
  543. '$endif ''DEBUG
  544.         ERROR STFERR
  545.     end if
  546. END SUB
  547.  
  548.  
  549. '*************************************************************************
  550. SUB GetSerialPortsList (szSymbol$) STATIC
  551. '$ifdef DEBUG
  552.     if szSymbol$ = "" then
  553.         BadArgErr 1, "GetSerialPortsList", szSymbol$
  554.     end if
  555. '$endif ''DEBUG
  556.     if FGetSerialPortsList(szSymbol$) = 0 then
  557. '$ifdef DEBUG
  558.         StfApiErr saeFail, "GetSerialPortsList", szSymbol$
  559. '$endif ''DEBUG
  560.         ERROR STFERR
  561.     end if
  562. END SUB
  563.  
  564.  
  565. '*************************************************************************
  566. FUNCTION Has87MathChip STATIC  AS INTEGER
  567.     Has87MathChip = FHas87MathChip
  568. END FUNCTION
  569.  
  570.  
  571. '*************************************************************************
  572. FUNCTION HasMonochromeDisplay STATIC  AS INTEGER
  573.     HasMonochromeDisplay = FHasMonochromeDisplay
  574. END FUNCTION
  575.  
  576.  
  577. '*************************************************************************
  578. FUNCTION HasMouseInstalled STATIC  AS INTEGER
  579.     HasMouseInstalled = FHasMouseInstalled
  580. END FUNCTION
  581.  
  582.  
  583. '*************************************************************************
  584. FUNCTION DoesDirExist (szDir$) STATIC  AS INTEGER
  585. '$ifdef DEBUG
  586.     if FValidFATDir(szDir$) = 0 then
  587.         BadArgErr 1, "DoesDirExist", szDir$
  588.     end if
  589. '$endif ''DEBUG
  590.     DoesDirExist = FDirExists(szDir$)
  591. END FUNCTION
  592.  
  593.  
  594. '*************************************************************************
  595. FUNCTION DoesIniSectionExist (szFile$, szSect$) STATIC  AS INTEGER
  596. '$ifdef DEBUG
  597.     if FValidIniFile(szFile$) = 0 then
  598.         BadArgErr 1, "DoesIniSectionExist", szFile$+", "+szSect$
  599.     end if
  600. '$endif ''DEBUG
  601.     DoesIniSectionExist = FDoesIniSectionExist(szFile$, szSect$)
  602. END FUNCTION
  603.  
  604.  
  605. '*************************************************************************
  606. FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) STATIC  AS INTEGER
  607. '$ifdef DEBUG
  608.     if FValidIniFile(szFile$) = 0 then
  609.         n% = 1
  610.     elseif szKey$ = "" then
  611.         n% = 3
  612.     else
  613.         n% = 0
  614.     end if
  615.     if n% > 0 then
  616.         BadArgErr n%, "DoesIniKeyExist", szFile$+", "+szSect$+", "+szKey$
  617.     end if
  618. '$endif ''DEBUG
  619.  
  620.     DoesIniKeyExist = FDoesIniKeyExist(szFile$, szSect$, szKey$)
  621. END FUNCTION
  622.  
  623.  
  624. '*************************************************************************
  625. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC  AS STRING
  626. '$ifdef DEBUG
  627.     if FValidIniFile(szFile$) = 0 then
  628.         n% = 1
  629.     elseif szKey$ = "" then
  630.         n% = 3
  631.     else
  632.         n% = 0
  633.     end if
  634.     if n% > 0 then
  635.         BadArgErr n%, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  636.     end if
  637. '$endif ''DEBUG
  638.  
  639.     cb% = 512
  640.     szBuf$ = STRING$(cb%, 32)
  641.     cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  642.     GetIniKeyString = szBuf$
  643. '$ifdef DEBUG
  644.     IF cbRet% >= cb% THEN
  645.         StfApiErr saeOvfl, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  646.         ERROR STFERR
  647.     END IF
  648. '$endif ''DEBUG
  649.     szBuf$ = ""
  650. END FUNCTION
  651.  
  652.  
  653.  
  654.